home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
os2
/
ftree11a.zip
/
PERSONS.FTX
< prev
next >
Wrap
Text File
|
1996-10-30
|
7KB
|
212 lines
/*
Family Tree Rexx Script FTX
Copyright (C) 1996 by <Nils Meier, Peter Gervai>
Please send comments to / Kommentar bitte an
meier2@athene.informatik.uni-bonn.de
<
English: This script shows all informations about the persons in the tree,
sorted by birth date. :English
Deutsch: Dieses Skript zeigt alle Informationen aller Personen im Baum,
sortiert nach Geburtsdatum. :Deutsch
Nederlands:This script shows all informations about the persons in the tree,
sorted by birth date. :Nederlands
Francais: Ce script donne toutes les informations sur les personnes composant
l'arbre généalogique, classées par date de naissance. :Francais
>
Long name is <
English: List persons in the tree :English
Deutsch: Auflisten der Personen im Baum :Deutsch
Nederlands: List persons in the tree :Nederlands
Francais: Imprime le personnes composant :Francais
>
*/
/* ----------------------- Params / Parameter ------------------- */
CALL InitLanguage
/* Select first person in the tree */
rc=sortPersons('B,N,F')
res = SelectPerson('F');
do while res=1
call PrintPerson;
res = SelectPerson('N');
end
exit;
/*
* Print the actual person
*/
PrintPerson:
/* ----------------- Display Header / Kopf der Ausgabe ------------- */
head=msg.header.LANG||getName()||','||getFirstName()
SAY(COPIES('=',70))
SAY(head)
SAY(COPIES('-',length(head)))
/* ------------------------------ Output / Ausgabe ----------------- */
/* Standard data / Standardinformationen */
SAY(msg.name.LANG ||getName() )
SAY(msg.firstname.LANG ||getFirstName() )
SAY(msg.sex.LANG ||WORD(datasex,getSex()+1) )
SAY(msg.birthdate.LANG ||getBirthDate() )
SAY(msg.birthplace.LANG||getBirthPlace() )
SAY(msg.deathdate.LANG ||getDeathDate() )
SAY(msg.deathplace.LANG||getDeathPlace() )
SAY(msg.occupation.LANG||getOccupation() )
SAY(msg.address.LANG ||getAddress() )
/* Memo field / Memofeld */
line=1
SAY(msg.memo.LANG||getMemo(line))
DO FOREVER
line=line+1
result=getMemo(line)
IF LENGTH(result)=0 THEN LEAVE
SAY(msg.empty.LANG||result)
END
/* Marriages / Ehen */
p=1
rc=selectFamily(p)
DO WHILE rc=1
/* Push Man on Stack / Menschen auf Stack */
rc=doStack('PP')
/* Partner / Parner */
rc=selectPerson('p')
result=getFirstName()||' '||getName()||' '
/* MarriageDate / Heiratsdatum */
result=msg.marriage.LANG||result||getMarriageDate()
/* Output / Ausgabe */
SAY('.........................................')
SAY(result)
/* Children / Kinder */
c=1
rc=selectPerson(c);
DO WHILE rc=1
IF c=1 THEN
result=msg.child.LANG||getBirthDate()||' '||getFirstName()||' '||getName()
ELSE
result=msg.empty.LANG||getBirthDate()||' '||getFirstName()||' '||getName()
SAY(result)
c=c+1
rc=selectPerson(c)
END
/* Pop Man from Stack / Menschen vom Stack */
rc=doStack('pP')
/* Next Family of Actual / Naechste Familie des Aktuellen */
p=p+1
rc=selectFamily(p)
END
/* Done / Fertig */
RETURN
/* ---------------------- LANGUAGE INIT --------------------------- */
InitLanguage:
/* Calculate Language Index */
lang='E' /* Default -> [E]nglish */
IF getLanguage()='Deutsch' THEN /* Deutsch -> [G]erman */
lang='G'
IF getLanguage()='Nederlands' THEN /* Nederlands -> [D]utch */
lang='D'
IF getLanguage()='Francais' THEN /* Francais -> [F]rench */
lang='F'
/* [E]nglish Messages */
msg.header.E ='Personal data of '
msg.name.E ='Name : '
msg.firstname.E ='First name : '
msg.sex.E ='Sex : '
msg.birthdate.E ='Birth date : '
msg.birthplace.E='Birth location : '
msg.deathdate.E ='Death date : '
msg.deathplace.E='Death location : '
msg.occupation.E='Occupation : '
msg.address.E ='Address : '
msg.memo.E ='Memo : '
msg.picture.E ='Picture : '
msg.marriage.E ='Marriage with : '
msg.child.E ='- Children : '
msg.empty.E =' : '
msg.datasex.E = '? male female'
/* [G]erman Messages */
msg.header.G ='Persoenliche Daten von '
msg.name.G ='Name : '
msg.firstname.G ='Vorname : '
msg.sex.G ='Geschlecht : '
msg.birthdate.G ='Geburtsdatum : '
msg.birthplace.G='Geburtsort : '
msg.deathdate.G ='Todesdatum : '
msg.deathplace.G='Todesort : '
msg.occupation.G='Beruf : '
msg.address.G ='Addresse : '
msg.memo.G ='Memo : '
msg.picture.G ='Bild : '
msg.marriage.G ='Ehe mit : '
msg.child.G ='- Kinder : '
msg.empty.G =' : '
msg.datasex.G = '? männlich weiblich'
/* [D]utch Messages */
msg.header.D ='Personal data of '
msg.name.D ='Name : '
msg.firstname.D ='First name : '
msg.sex.D ='Sex : '
msg.birthdate.D ='Birth date : '
msg.birthplace.D='Birth location : '
msg.deathdate.D ='Death date : '
msg.deathplace.D='Death location : '
msg.occupation.D='Occupation : '
msg.address.D ='Address : '
msg.memo.D ='Memo : '
msg.picture.D ='Picture : '
msg.marriage.D ='Marriage with : '
msg.child.D ='- Children : '
msg.empty.D =' : '
msg.datasex.D = '? male female'
/* [F]rench Messages */
msg.header.F ="Renseignements sur "
msg.name.F ="Nom : "
msg.firstname.F ="Prénom(s) : "
msg.sex.F ="Sexe : "
msg.birthdate.F ="Date de Naissance : "
msg.birthplace.F="Lieu de Naissance : "
msg.deathdate.F ="Date du Décès : "
msg.deathplace.F="Lieu du Décès : "
msg.occupation.F="Activité : "
msg.address.F ="Adresse : "
msg.memo.F ="Mémo : "
msg.picture.F ="Image : "
msg.marriage.F ="Mariage avec : "
msg.child.F ="- Enfant(s) : "
msg.empty.F =" : "
msg.datasex.F ="? Homme Femme"
/* Done */
RETURN